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>>>>>>>>>>>>>>>>>>>>>>>>>>>:>>>>>> 
> 

> Module: Cache 

> 

> The name of this module is a bit misleading: there is no true 

> cache implemented at this time. However, there is an attempt made 

> at some primitive look-ahead methods to reduce the access time 

> of the disk. This module contains those routines that are 

> chiefly involved with the look-ahead algorithm. 
> 

> FUNCTION CnvrtLogicaK LogicalBlock : 3 BYTES { !rC:E > > : 

> CnvrtLogical : BOOLEAN { true if block spared } 

> Cyl inder : UORD { ! IrC } 

> Head : BYTE { !rE > 

> Sector : BYTE { !rF } 

> Status : BYTE { !r0 } 

> Ptr : BYTE { !r1 > 

FUNCTION SrchCachC LogicalBlock : 3 BYTES { !rC:E } 

> Random : BOOLEAN { !r?/Bit 7 > 

> Offset : 3 BITS { !r?/Bits 2:0 } > : 

> BOOLEAN 

> HeadSector : BYTE { !r0 > 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>•>>>>>>> 
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>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Function: CnvrtLogical { ConvertLogical Block } 

> 

> This function is responsible for converting a logical block 

> number to a physical block number by first searching the spare 

> table and then doing the appropriate arithmetic to arrive at 

> the ey I inder, head, and sector value. 

> 

> Inputs: 

> LogicalBlockNumber : 3 BYTES { IrC, !rD., !rE > 
> 

> Outputs: 

> Cui inder 

> Head 

> Sector 

> Status 

> Ptr 
> 
> 

> Loca I Uar i ab I es : 

> PhysicalBiock : 3 BYTES { IrC, !rD, rE } 
Temp : 3 BYTES { !r1, lr2, !r3 } 

> ftigori thm: 

> 

> BEGIN 

> IF LogicalBlock > HaxLogicalBiock THEN RBORT 

> Phys i ca I B I ock : = Sear chSpareTab I e < Log i ca I B i ock > 

> Cylinder := PhysicalBiock DIU < Heads * Sectors > 

> Temp := PhysicalBiock NOD < Heads * Sectors > 



WORD { IrC, !rD > 

BYTE { !rE } 

BYTE { IrF > 

BYTE { !r0, returned from search spare table } 

BYTE { !r1, returned from search spare table > 



> Head := Temp DiU Sectors 

> Sector := Temp MOD Sectors 

> END 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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CnurtLogical 
CnvrtSrch: 



Lai i 


brchSpTab I 


; check if i og i ca 1 b 1 ock i n spare tab 1 e 


Push 


Flags 


;save results 


Push 


!r0 


;save status 


Push 


!r1 


;save ptr 


Ld 


!r2,*.HiBVTE. 


GetjCyU^S 


Ld 


!r3,*.L0WBYTE 


GetJCyl_H_S 


Cat 1 


BankJCal 1 


;get cylinder, headland sector 


Ld 


IrO, !rF 


;pass physical sector 


Ld 


!r2,*.HlBYTE. 


ReNap-JSector 


Ld 


lr3,#.L0UBVTE 


Ret1ap_Sector 


Cal I 


Bank jCa 1 1 




Ld 


!rF, !r0 


; !rF := logical sector 


Pop 


!r1 


;Element.Ptr 


Pop 


IrO 


; Search Status 


Pop 


Flags 




Jp 


Bank_Ret 
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>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Function: SrchCache 

This fun t ion searches the block cache and returns both a 
boolean variable < indicating whether the block is in the 
cache AND if there is a seek associated with it 5, as well 
as a info as to whether a head select may be needed. The 
cache may be searched sequential ly, or randomly < as is the 
case for multiblock commands. >. 



Inputs: 



LogicalBlock : 3 BYTES { !rC:E > 
Offset : 3 BVTE { IrO } 

WORKING REGISTER SET NUST BE Wrk_J5us 



Outputs : 



SrchCache : BOOLEAN { zero flag is set if block is not 

i n the cache OR i f there i s a seek 
needed to qet to the block > 

HeadSector : BYTE { IrO > 



Rigor i thm: 

BEGIN 
i := 1 



> SrchCache := False 

> IF < Cachefirrayl Offset ] .Logical Block = Logical Block > 

> THEN 

> Found := True 

> CachStat := CacheStatus[ Offset 3 

> IF NOT< CachStat. Seek > 

> THEN SrchCache := True 

> END 

> 



;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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SrchCache : 



Srch JC JLp : 



Srp *WrkJScr 

Ld ! r 4 , »CacheLeng th 

Ld ! rR, *.H I BVTE. Cacheflrray 

Ld !rB,».LOMBVTE. Cacheflrray 

Ld I r , Caehe_ I ndex 

Ri !r0 ;multiply bq 4 

Rl !r0 

Add !rB, !r0 ; index into array 

Rdc !rR.*0 



Ld !r8,*ScrRegQ 

Lde i § ! r 8 1 § I ! rfl ; I oad Cacheflrray . Log i ca I 

Ldei e!r3,e»!rfl 

Ldei @!rS,§! !rfl 

Xor !rO,WrkJSys+$C ; compare values 

Xor !rt,Urk.JSys+$D 

Xor !r2,Urk-Sys+$E 

Or ?r0,!r1 ;test for zero 

Or !r0, !r2 

Jr Nz^Srch_J1ore 

Ld !r8,*.HIBVTE. CachStat ;get CacheStatus 

Ld !r9,*.L0HBVTE. CachStat 

Rdd ! r 9 , Cache_ I ndex 

I nc Cache_l ndex 

Lde !r1,eMr8 

Ld BlkStat^rl ;save search result 

Lde ! rQ, 8 M rfl ; get Head/Sector i nf o 



Srch JC JEnd : 



Srp 
Ld 
Tm 
Ret 



*!4rkJSys ;get back to normal system context 
! rO , ScrRegO ; pass head /sec tor i nf o back 
BlkStat,*CachSeek ;set seekneeded flag 



Srch_More: Inc Cache_lndex 

Cp Cached ndex, *CacheLength ; check for cache overflow 

Jr Lt,SrchJ1_1 



Clr Cache_lndex 
SrchJ1_1: Djnz ! r 4 , Srch_C_Lp 



Ld BikStat,*CachSeek 
Clr Cache_lndex 



Jr Srch_C_End 
. LSTOFF 



